home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / V-TPUG Programming Contest / (n)v14.d64 / vic to 64 screen (.txt) < prev   
Commodore BASIC  |  2009-01-19  |  593b  |  16 lines
  1. 100 PRINT"[147]    22-COLUMN PRINT FORMATTER FOR C64":PRINT
  2. 110 PRINT"READING DATA"
  3. 120 FORI=828TO881:READA:CK=CK+A:POKEI,A:NEXT:POKE179,883 AND 255
  4. 130 IFCK<>6032THEN PRINT"ERROR IN DATA:CHECK TYPING.":END
  5. 140 PRINT"BEFORE...":SYS828:PRINT"AFTER..."
  6. 150 PRINT"PRESS RUN/STOP-RESTORE";:PRINT"TO REGAIN 40 COLUMNS"
  7. 160 PRINT"ENTERSYS828[146] TO":PRINT"REACTIVATE,IF":PRINT"NECESSARY."
  8. 170 PRINT"DO NOT EDIT ANY":PRINT"LINES WHILE IN 22 COL-UMN MODE."
  9. 1000 DATA169,71,141,38,3,169,3,141
  10. 1010 DATA39,3,96,72,152,72,138,72
  11. 1020 DATA56,32,240,255,192,9,176,3
  12. 1030 DATA76,100,3,192,31,144,15,169
  13. 1040 DATA13,32,202,241,56,32,240,255
  14. 1050 DATA160,9,24,32,240,255,104,170
  15. 1060 DATA104,168,104,76,202,241
  16.